home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / assembly / abakus.lha / Abakus / Demos / SerCheck_2.a < prev    next >
Text File  |  1995-08-09  |  2KB  |  60 lines
  1. *  Dieses Programm überwacht die serielle Schnittstelle,
  2. *  bei einem Connect wird das in BBS angegebene Programm gestartet,
  3. *  nach beenden des BBS Progr. überwacht es die serielle erneut.
  4. *  Programm kann durch drücken von Ctrl C  beendet werden.
  5.  
  6.              module cli
  7.  
  8.           Input stdin
  9.           Output stdout
  10.           raw
  11.  
  12.           OpenSer 0 [ #Sername #1 ]  ;Serielle öffnen .. noch mehrere Angaben möglich!
  13.           mem #4000 Buffer
  14.  
  15.         Loop L1
  16.           WriteSer 0 #init #initln   ;Initialisiere Modem
  17.           delay #100                 ;etwas Warten
  18.  
  19.           CheckReadBuff 0 x          ;Checken wieviel im Buffer ist.
  20.           ReadSer 0 Buffer x         ;Buffer auslesen.
  21.  
  22.           WriteS Buffer x            ;In stdout Window schreiben
  23.  
  24.           SetSer 0 #Buff2 #1
  25.  
  26.           Set_C
  27.           TaskWait C Ser
  28.  
  29.                                      ;CTRL ^C abgebrochen wird!
  30.                                      ;verbraucht 0% CPU Zeit.
  31.           btst.l #12,d0
  32.           bne Adios                  ;Wenn CTRL ^C dann Abbruch
  33.  
  34.  
  35.           Execute #BBS               ;Lade BBS Prog.
  36.  
  37.           CheckReadBuff 0            ;Leere Buffer
  38.           ReadSer 0 Buffer d0
  39.         End Loop L1
  40.  
  41. Adios
  42.  
  43.           CloseSer 0
  44.           free Buffer
  45.           Return
  46. *_______________________________________________________
  47.  
  48. BBS       dc.b "Pfad/BBS",0
  49. init      dc.b  "ATZ",13,10,"ATS0=1",13,10
  50. initln    equ   *-init
  51.  
  52. Sername   dc.b "nullmodem.device",0
  53.  
  54. Buff2     dc.b 0
  55.  
  56.           cnop 0,4
  57.  
  58. Buffer    ds.l 1
  59. x         dc.l 0
  60.